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RTITLE "EDTSMCGETLIN = get a text Line’ | 

MODULE EDTSMCGETLIN ( ! Get a text Line | 

IDE Fi | 
s 


l 
NT = ‘'V04-000' ! File: MCGETLIN.BLI Edit: JBS1004 
BEGIN 
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'@ 

ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie noe SOFTWARE IS gt ae UNDER A LICENSE AND MAY BE USED AND gd ba 
ONLY IN ACCORDANCE WITH THE TERMS OF 


HL 
Hl Sts ee OF i & Above gdh NOTICE. Dy SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MA PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO. riTLe "Fo AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE ey Gat IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND ae D BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
Get a text Line. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 

MODIFIED BY: 

1-001 - Original. DJS 19-FEB-1981. This module was created by 
extracting routine EDT$$GET TXTLN from module MOVCUR. 

1 - Regularize headers. JBS T1-Mar-198 


1- - Put edt$$tst_eob in Line. STS 22-Sep-1982 
1- - Improve the appearance of the listing. JBS 17-Jun-1983 
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: 
FACILITY: EDT == The DEC Standard Editor 
| 
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SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSGET_TXTLN : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
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Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Ge Se Ge Se Ge Fe Ge Ge Os Se Se Se Se Se Se Se Gee 
SN NN NINN NNO OOOO oa 
PP Ps CRIS See 


$40 i MACROS: 
i 
é NONE 
4 ; EQUATED SYMBOLS: 
$ NONE 
7 ; 8 i OWN STORAGE 
8 54 i 
79 550 1! NONE 
0 9691 i 
1 065¢ i EXTERNAL REFERENCES: 
HE 0654 i In the routine 
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EDTSMCGETLIN DISMCGETLIN = get ott text lin oe Sep-1984 x-11 s-32 V 
ees EDTSSGET TATUN Me get's tent Line frie Hat 93:39:30 RKSVMGMASTERSCEDT SRCSMCGETLIN.BLIG3™” (3 
: 5 1 SSBTTL cae _TXTLN = get a text Line’ : 
; GLOBAL ROUTINE EDTSSGET_TXTLN ! Get a text Line 3 
; ? ; 
; FUNCTIONAL DESCRIPTION : 
: 38 1 i This routine fetches the current Line cron. the wort hb into the ; 
; 13 ast eM Line buffer. The pointer cD TSsA PTR is updat ted to : 
: #95 1 i ing te the cursor sPosition and EDTS$ ACH END and € 1386 LN_LEN : 
; 38 1/ ore ntitiali ae¢. A carriage return NErotter is placed after the 3 
3 4 : last character in the buffer to facilitate search operations. : 
; 3 1} FORMAL PARAMETERS: : 
3 + 1 ; 
; 101 1 NONE 3 
g 198 1/ 3 
; ; ; IMPLICIT INPUTS: : 
: 105 1 EDTSSA_CUR_BUF : 
; (1 1 EDTS$T_LN_BuF 3 
:; 10 1 i EDTSSA_ wk- LN : 
; 108 1 i $ 
H 1 : IMPLICIT OUTPUTS: : 
: 0411 1! EDT$$G_LN_CHGD ; 
; iF 1 i EDTS$SA_LN_PTR ; 
3s 11 1: EDTSSA_LN_END : 
3 148 : EDTS$G_LN_LEN : 
; 116 1 § ROUTINE VALUE: F 
s 11 1/ 3 
3; #118 1 i NONE 3 
3; #6119 | Ps 
; : ' SIDE EFFECTS: : 
> 4 é 1 NONE ; 
7s 1: 3 
: 126 1 jee $ 
3 125 1 F 
; ; $ BEGIN : 
> 1 8 EXTERNAL ROUTINE ; 
3 : ED™$$RD_CURLN; : 
> 131 EXTERNA : 
3 4% § EDT $6. LN CHGD, ! Indicates current Line has changed. 3 
3; 1 EDTSSA CUR BUF : REF TBCB_BLOCK, ' Current text buffer 3 
3 7 EDTSS$T_LN_6BuF, ' Current Line buffer. 3 
3 Va EDTSSA_LN_PTR, ' Current character pointer. ; 
.:.% EDTSSA_LN_END, ! End of current Line pointer. : 
3; 3 EDTS$$G_LN_LEN, ! Length of current Line. : 
a © EDT$$2_E08 LN, 3 
: 1% EDTSSA_WK_ CN’ REF LIN_BLOCK; ' Current Line pointer. : 
: 141 | : 

} 

| 
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j Make sure the current Line is accessable. 
- EDTSSRD_CURLN (); 
Check for end of buffer. 


IFC EDTSSA_MK_LN EOLA EDTSSZ_£08_LW) 
EDTS$G_LN_LEN = 0 
ELS 
- BEGIN 
Get the Length and move that many characters. 


EDTS$G_LN_LEN = .EDTSSA_ WK LN CLIN LENGTH); 
ror ts MEM (.EDTSSG_LA_LEN, EDTSSA_WK_LN CLIN_TEXT], EDTSST_LN_BUF); 


"set up the end of Line pointer. 
EDTSSA_LN_END = CHSPTR (EDTSST_LN_BUF, .EDTSS$G_LN_LEN); 
i Place a CR at the end of the Line. 
CHSWCHAR (ASC_K_CR, .EDTSSA_LN_END); 
i Set up the cursor pointer to point to the current character. 
EDTSSA_LN_PTR = CHSPTR (EDTSST_LN_BUF, .EDTSSA_CUR_BUF CTBCB_CHAR_POS)); 
i and mark the current Line as unchanged. 


EDTSS$G_LN_CHGD = 0; 
END; ! of routine EDTSSGET_TXTLN 


TITLE EDT SACGETLIN EDTSMCGETLIN = get a text Line 
IDENT \Vv04 
-EXTRN EDTSSRD_CURLN EDI LN CHGD 
-EXTRN EDTS$A_CUR BUF, ssf LAB 
-EXTRN EDTSSA_LN_ Rae ik. A_CN END 
-EXTRN EDTSS$G_ UNA “LEN. atts “E08 tN 
-EXTRN EDTSSA_W 
-PSECT _EDTSCODE, po SHR, PIC,2 
01FC 00000 -ENTRY EDTSSGET VATE, ave R2,R3,R4,R5,R6,R7,R8 
§ G GE B0N6 MOVAB EDTSSA_LA_E 
0 G SE MOVAB EDISSTTLN-BUF 4 
0 6 OF MOVAB EDTSSG"LN-LEN, R6 


F 9 CALLS # D $$ D_CURLN 
; SHEE Et mila fetta. 
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1$ 
T$$G_LN_LEN 


G_LN LN_ “END: N, Roe 


: ® EWA LER. ERD, EDTS$$T_LN_BUF 


EDTS$SA_LN_END 


; 0721 
+ 0727 
B 
3; 07 
: 07 
+ 0742 


: 07% 
3 074 


ERT encge Lin 


EDISSGET THILN 9S" get's text Line 


18¢ 073} } END ! of module EDTSMCGETLIN 
1 j 752 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 103 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CEDT.SRCIJEDT.L32;1 377 33 4 49 00:00.2 
_8255$DUA28: LEDT.SRCIPSECTS.L32;1 2 1 5 00:00.1 
COMMAND QUALIFIERS 
wis S/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MCGETLIN/OBJ=O0BJ$:MCGETLIN MSRC$:MCGETLIN.BLI/UPDATE=(ENHS:MCGE 
Size: 103 code + 0 data bytes 
Run Time: 311. 
Fi cesed Time: 713. 
nes/CPU Min: 4116 


Lenenes/CPU-Rin: 11709 
penery Used: 69 pages 
Compi ation. Complete 
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